home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs08.d81
/
vidcon.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
21 lines
10 REM CONVERT A FILE FROM PETSCII TO ASCII
20 REM USEFUL FOR CONVERTING AN EASY-SCRIPT FILE TO A VIDTEX BUFFER
30 REM COPYRIGHT 1983 JOEL RUBIN
40 REM COMMERCIAL RIGHTS RESERVED
50 REM MAY BE FREELY DISTRIBUTED
60 REM USES JIM BUTTERFIELD'S STRING THING ROUTINE
70 A$="ABCDEFGHIJKLMNOPQ"
80 A$=A$+A$+A$+A$+A$
90 A$=A$+A$+A$
95 REM ABOVE SETS STRING FOR MAX (255)
100 POKE53281,6:POKE53280,7:PRINT"[147][158]"
110 OPEN15,8,15,"I"
120 INPUT"INPUT FILE";IP$
130 OPEN2,8,2,IP$:INPUT#15,A,B$,C,D:IFA<>0THENPRINTA;B$C;D:STOP
140 INPUT"OUTPUT FILE";OP$
150 OPEN3,8,3,OP$+",S,W":INPUT#15,A,B$,C,D:IFA<>0THENPRINTA;B$C;D:STOP
155 INPUT"ADD LINEFEEDS?";LF$
156 C=ASC(LF$+CHR$(0)):LF$=CHR$(13)+CHR$(10):IF(C=78)OR(C=206)THENLF$=CHR$(13)
160 SYS2740:SS=ST:PRINT#3,LEFT$(A$,PEEK(142))LF$;:IFSS=0THEN160
170 CLOSE2:CLOSE3